﻿Module Module1

    Sub Main()
        Dim fechaSr, idioma As String
        Dim fecha As Date
        Dim idiomaFecha As String()
        Console.Title = "Ejercicio2 select"
        Do
            Console.Write("Introduce la fecha : ")
            fechaSr = Console.ReadLine()
        Loop While Not IsDate(fechaSr)

        fecha = Date.Parse(fechaSr)

        Console.Write("Introduce el idioma en que deseas que aparezca la fecha(E/C)")
        idioma = Console.ReadLine()

        Select Case idioma.ToUpper
            Case "E"
                Dim idioma1 As New System.Globalization.CultureInfo("eu-ES", True)
                idiomaFecha = fecha.GetDateTimeFormats(idioma1)
                Console.WriteLine("La fecha es " & idiomaFecha(2))
                
            Case "C"
                Dim idioma2 As New System.Globalization.CultureInfo("es-ES", True)
                idiomaFecha = fecha.GetDateTimeFormats(idioma2)
                Console.WriteLine("La fecha es " & idiomaFecha(10))
        End Select
        Console.ReadLine()
    End Sub

End Module
